home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / test.bak < prev    next >
Encoding:
Text File  |  1994-07-02  |  641 b   |  48 lines
  1.  
  2. PRIVATE M.Count
  3.  
  4. CLOSE DATABASES
  5.  
  6. Use Roster
  7. COUNT TO M.Records
  8. M.Count = 2
  9. M.Posistion = 1
  10.  
  11. * DO WHILE M.Count <= 3
  12.  
  13.     DIMENSION Magic(1,2), Search(1,1)
  14.     COPY RECORD Count TO ARRAY Search FIELDS Lang2
  15.     
  16.  
  17.     M.Count = M.Count + 1
  18.     
  19.     DISPLAY MEMORY LIKE Search
  20.     
  21.     String = ALLTRIM(Search[1,1])
  22.     ? String
  23.     Magic[1,1] = 'English'
  24.     Magic[1,2] = 24
  25.     
  26.     DISPLAY MEMORY LIKE Magic
  27.     
  28.     Match = ASCAN(Magic, String)
  29.     ? Match
  30.     
  31.     IF Match == 0
  32.         Error=AINS(Magic, M.Posistion)
  33.         Magic[M.Posistion,1] = String
  34.         Magic[M.Posistion,2] = 1
  35.         ? Error
  36.     ELSE
  37.         
  38.     ENDIF
  39.     
  40.     
  41.     DISPLAY MEMORY LIKE Magic
  42.     
  43.     
  44.     
  45. * ENDDO
  46.  
  47.  
  48.